﻿Imports System

Namespace System.Workflow.Activities
    <Serializable> _
    Public NotInheritable Class ConditionalEventArgs
        Inherits EventArgs
        ' Methods
        Public Sub New()
            Me.New(False)
        End Sub

        Public Sub New(ByVal result As Boolean)
            Me.result = result
        End Sub


        ' Properties
        Public Property Result As Boolean
            Get
                Return Me.result
            End Get
            Set(ByVal value As Boolean)
                Me.result = value
            End Set
        End Property


        ' Fields
        Private result As Boolean
    End Class
End Namespace

